home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / SHAPE1.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  43 lines
  1. 10  REM  ***************************
  2. 11  REM  * HOW TO DO A SHAPE TABLE *
  3. 12  REM  *      JOHN FIGUERAS      *
  4. 14  REM  *                         *
  5. 15  REM  *         SHAPE1          *
  6. 16  REM  *                         *
  7. 18  REM  *   COPYRIGHT (C) 1981    *
  8. 20  REM  *      MICRO INK, INC.    *
  9. 22  REM  *  CHELMSFORD, MA 01824   *
  10. 24  REM  *   ALL RIGHTS RESERVED   *
  11. 25  REM  *                         *
  12. 26  REM  ***************************
  13. 28  REM 
  14. 29  REM 
  15. 30  INPUT "NAME OF SHAPE TABLE ";NAME$
  16. 35  INPUT "STARTING ADDRESS, DECIMAL ";ADDR
  17. 40  INPUT "NO. OF SHAPES TO BE STORED ";N
  18. 50  REM  ZERO DIRECTORY
  19. 60  FOR I = 0 TO 2 *N +1
  20. 70  POKE ADDR +I,0: NEXT 
  21. 80  REM  CALCULATE INDEX TO CURSOR
  22. 90 N = 2 *N +2
  23. 100  REM  PUT CURSOR INDEX INTO DIRECTORY
  24. 110  POKE ADDR +2,N -256 * INT(N/256)
  25. 120  POKE ADDR +3, INT(N/256)
  26. 130  REM  CALC INITIAL ADDRESS TO CURSOR
  27. 140 INIT = ADDR +N
  28. 150  REM  ENTER CURSOR SHAPE VECTORS
  29. 160  DATA  62,36,45,54,04,00
  30. 170  FOR I = 0 TO 5
  31. 180  READ A: POKE INIT +I,A: NEXT 
  32. 190  REM  GET INDEX TO NEXT SHAPE
  33. 200 N = N +6
  34. 210  REM  STORE NEW INDEX IN DIRECTORY
  35. 220  POKE ADDR +4,N -256 * INT(N/256)
  36. 230  POKE ADDR +5, INT(N/256)
  37. 240  REM  UPDATE SHAPE COUNTER
  38. 250  POKE ADDR,1
  39. 260  REM  STORE INITIALIZED FILE ON DISK
  40. 270 D$ =  CHR$(4)
  41. 280  PRINT D$;"NOMON C,I,O"
  42. 290  PRINT D$;"BSAVE" +NAME$ +",A" + STR$(ADDR) +",L" + STR$(N) +",V0,D2"
  43. 300  END